sub smsvdp(tad as ubyte, tvl as ubyte):
  asm
    ld a,(ix+7) ;- previously was 6
    out ($bf),a
    ld a,(ix+5) ;- previously was 6
    or $80
    out ($bf),a
    end asm
  end sub

